Unit HataMesaji;

Interface

Uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

Type
  THataMesajiF = Class(TForm)
    btamam: TBitBtn;
    HataMesajik: TMemo;
    Button1: TButton;
    Procedure FormActivate(Sender: TObject);
    Procedure FormShow(Sender: TObject);
    Procedure FormClose(Sender: TObject; Var Action: TCloseAction);
  Private
    { Private declarations }
  Public
    { Public declarations }
  End;

Var
  HataMesajiF: THataMesajiF;

Implementation

{$R *.dfm}

Procedure THataMesajiF.FormActivate(Sender: TObject);
Begin
  left := 1;
  top := 1;
End;

Procedure THataMesajiF.FormShow(Sender: TObject);
Begin
  HataMesajik.SetFocus;
End;

Procedure THataMesajiF.FormClose(Sender: TObject;
  Var Action: TCloseAction);
Begin
  Action := CaFree;
  HataMesajiF := Nil;
End;

End.
